home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 1
/
The Arsenal Files (Arsenal Computer).ISO
/
os2_app
/
chkey.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-01-03
|
424b
|
19 lines
/* CHKEY */
/*----------------------------------------------------------
RESULT = CHKEY(timeout_secs)
IF RESULT = 0 THEN SIGNAL TIMEOUT
ELSE INPUT = LINEIN()
-----------------------------------------------------------*/
ARG sec
IF sec = '' THEN sec = 10
START_TIME = time('e')
DO UNTIL LINES() = 1 | TIME('E') > sec
END
IF LINES() = 1 THEN EXIT 1
ELSE EXIT 0